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v03-001 KDM0086 Kathleen D. Morse se-nprn ees 
Correctly acquire system time, even inc 
secondary processor is accessing EXESGO. sy SrIMe "while 
the primary processor is updating it (11/782 case). 


V02-004 ROW37307 Ralph 0. Weber 27-Jul-1981 
ras EXECS INT IN to treat decimal point precgeding hundredths of 

a second field as a true decimal point. IE: to cause 0:0:0.1 
to convert to 1 tenth of a second’ varher ey te “ hundredth 
of a socend. Also allow indefinite ne fractional yelue 
fields. the thousand hs digit to round the hundredth 
value, an gnore al dig ts fo ieratt the fhousandths digit. 
The entire field =H the first trailing blank, is still 
processed. Therefore, non-numeric characters in the 
fractional seconds field will still produce an Invalid Time 
return code. 


R 
I 
E 


SOOO SCCOCOSSOSOOSOSOSOSOSOSOSOSOSSOSOSOSOSOSOSOSOSOSOOOSoSoO 
im ao-<mn 


OOOCOCCOCOOSOOSOOOSOOSOOSOSOSOSOSOSOSOSOSOSOSOSOOSOSOOSOSOOSOSO 


GOOQCOOCOSOSSOOSOSOSOSSSSSSSOSSOCOSOOSCOOOOOOOOOOOOOOOOOOOO 
NAME WN M9 OOO NA UE WIN SO OO NAME WIN OOD NAME WN 2 OOO NAU EW OO ONOU EU 


MN BB BRE EEE PWIA nonononorunonononong 2 3 2 


SOOSCCOCSOOCOSOSOOSOSOOSOOSOSOSOSOOSOOOSOSOSOSOOSOOSOOOOOOOOO 


SoooooooooSo 
Soooooocoo 


Cooooooocoo 


I 
~ SYSTEM SERVICES TO CONVERT TIME 


35 


00 
00000008 
00 
00 


00000004 
00000008 


00000004 
00000008 


OOO08EAC 
0002381 


00000585 


SOOoOoooooooooooooooooooooooooooooooSd 


oa 


COOCOOOCOCOOOSOOOSOSOSOSOSoOSoOoOSoOOoOSoOSoOSooOO 
OOOCCSCSCOCSOSOSOSOOOSOSOSOSOSOOSOOoOSoOSoOSoOOOSoSoOS 
SOOSOCOCOCOOSOCOOSOOCOSOC OOOO OOOOSSSOSSOSOSSOSOSSOCOSOOOOCOCOOCOCOOOOOOOOOOOOO 


OOooooooooo 


3 § ~QOOODODOO0O000 00000000009 G9 00 09 0909 09 09 OS SINISE NS SIO AAO O 


AOao 
FAN OC ODNAUN ES WIN 9 OD NAU EWN 9 OD NA UNE WWI 0 ONO EWN (OOO NO UNE UO 


ec a ee ed A et eb 


Sooooooooo 


oo 


v02-003 is 


M0001 


; MACRO LIBRARY CALLS 


SSSDEF 


LOCAL SYMBOLS 


16-SEP= 
“SEP=1 


C. 
CONVERT subreut ik ne 
fix allows trailing bla 


1986 03:30: 


rudy 
in 
ank 


4:51 
0:12 
Matthe 
EXESB 
s afte 


US¥s 


NT 
a 


S$ Macro V04-00 
SRCIS SYSCVRTIM. MAR; 1 


33-Jun-1981 
IM to ignore blanks. 
truncated time field. 


DEFINE SYSTEM STATUS VALUES 


red 


This 


ARGUMENT LIST OFFSET DEFINTIONS FOR CONVERT BINARY TIME TO ASCII STRING 


A 


sADDRESS 
ADDRESS 

RESS 
; CONVERS 


I 


WORD TO STORE LENGTH 


OUTPUT BUFFER DESCRIPTO 
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11g ; TOTAL DAYS IN A QUADRICENTURY 
117° r 
00023AB1 i QUADRIDAYS=<400*365>+<400/4>=<400/100>+<400/400> ; : 
1 $ BI 
: ; TOTAL DAYS IN A QUADYEAR 8 
123 ° Cc 
00000585 4 QUADYEARDAYS=<365*4>+1 ; c 
1 : C' 
p | : OFFSET IN DAYS FROM 1-JAN-1501 TO 17-NOV-1858 bi 
3 i 
0 1 Dd 
0001FE98 0 130 TIMOFF 1=<<1858-1501>*365>+<<1858-1501>/4>-<<1858-1501>/100>+<<1858-1501>/4 -; DI 
09 131 31e2Be31+30e319S0031 881080881 F17 s seesaw E 
80 i 5 ; . 
3 4 ; OFFSET IN DAYS FROM 1-JAN-1601 TO 17-NOV-1858 E 
000 1 $ ‘ Hi 
00 1 TIMOF F 2=<<1858-1601>*365>+<<1858-1601>/4>-<<1858-1601>/100>+<<1858-1601>/400>+ -; H 
OOCI6FEC 0000 138 314+28+31+30+31+ bedi edt eae 1417 ; I' 
00 140 ; ni 
0 141 : CHARACTER CODE DEFINITIONS m 
Bi: : 
00000020 144 BLANK=32 ; N’ 
0000003A 145 COLON= : Ol 
90000 D 146 HYPHEN=45 : PI 
B0900083 G09) 34f hinteb7 : 
0000002E 183 PERIOD=46 ; 
151; 
133 : NUMERIC TIME BUFFER OFFSET DEFINITIONS 
154 ° 
155 YEAR=0 3 
1 8 MONTH=2 : 
vN 1 DAY=4 : 
DC 1 § HOUR=6 : 
0000 «159 MINUTE= : 
b0¢ 160 SECOND= : 
yi 18 HUNDREDTH=12 Ps 
as Re 
U Py 
198 : LOCAL DATA 
is : MONTH, DAY CONVERSION TABLE 
00000000 168 * .PSECT YSEXEPAGED 
1 DATETABLE: ;DATE CONVERSION TABLE 
1F 1 .BYTE 31 + JANUARY 
1D 17 -BYTE 29 FEBRUARY 
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ASCII STRING $23 att 83:36:73 SYS.SRCISYSCVRTIM.MAR; 1 spe 
-SBTTL CONVERT BINARY TIME TO ASCII STRING 
EXESASCTIM = CONVERT BINARY TIME TO ASCII STRING 


THIS SERVICE PROVIDES THE CAPABILITY TO CONVERT AN ABSOLUTE OR DELTA 
TIME FROM 64-BIT FORMAT TO AN ASCII STRING. 


INPUTS: 
ATIMLEN(AP) = ADDRESS OF WORD TO RECEIVE OUTPUT LENGTH. 
ATIMBUF (AP) = ADDRESS OF OUTPUT BUFFER DESCRIPTOR. 
ATIMADR(AP) = ADDRESS OF 64-BIT TIME VALUE. IF ZERO, THEN THE CURRENT 
SYSTEM TIME IS USED. POSITIVE VALUES ARE INTERPRETED AS 
ABSOLUTE TIMES AND NEGATIVE VALUES AS DELTA TIMES. 
ACVTFLG(AP) = CONVERSION INDICATOR. 
LOW BIT Ce a ecArES BOTH DATE AND TIME ARE TO BE CON- 
; LOW BIT SET INDICATES ONLY TIME IS TO BE CONVERTED. 
OUTPUTS: 


RO LOW BIT CLEAR INDICATES FAILURE TO CONVERT TIME TO ASCII. 


SDV PV SIV SUSU SUSIE «=O 


SND DED DS DEDEDE DEDEDE TT BS BS BS BE BE III III AI nr nfnnronno»fnowns =e 


PN ODO NE WWIIN = O OD NAMES WIN OOO NAU EWN 0 OONOAU EWN OOONAOULS W000 


0 
0 
0 
0 
0 
0 
0 
0 
0 
0 RO = SS$_ACCVIO = 64-BIT TIME VALUE OR OUTPUT BUFFER DESCRIPTOR 
0 CANNOT BE READ BY CALLING ACCESS MODE, OR OUTPUT BUFFER 
CANNOT BE WRITTEN BY CALLING ACCESS MODE. 
RO = oe vie - SPECIFIED DELTA TIME IS GREATER THAN 9999 
0 
; RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
8 RO = SS$_NORMAL - NORMAL COMPLETION. 
0 
0 EXESASCTIM:: ;CONVERT TIME TO ASCII 
007c 00 -WORD “M<R2,R3,R4,R5,R6> sENTRY 
7E 08 BC 7D 00 MOVQ @ATIMBUF (APS ,-(SP) SAVE OUTPUT BUFFER DESCRIPTOR 
56 65E § 0600 «60068 MOVL SP,R6 sSAVE ADDRESS OF OUTPUT BUFFER DESCRIPTOR 
7E D4 006 CLRL =(§P) ;CLEAR SPACE FOR LENGTH FROM FAO 
55 SE 00 007 MOVL SP,R5 sSAVE ADDRESS OF LENGTH 
52 D4 «6007 CLRL R sASSUME ABSOLUTE TIME SPECIFIED 
53 OC as 00 07 MOVL ATIMADR(AP) ,R3 :GET ADDRESS OF 64-BIT TIME VALUE 
0 bo8 BEQL 1 : E SPECIFIED 
50 «63 D 78 MOVQ (R3),RO GET 64-BIT TIME VALUE 
2 18 7 BGEQ 10$ :1F GEQ ABSOLUTE TIME 
D INCL R2 s INDICATE DELTA TIME 
oe C 10$: SUBL #<<<7#2>43>/4>04,, SP sALLOCATE NUMERIC TIME BUFFER 
54 SE OD MOVL R SAVE ADDRESS OF NUMERIC TIME BUFFER 
$ SNUMTIM_S R4), (R3) CONVERT TIME TO NUMERIC FORMAT 
6F 50 £9 38 BLBC RO,60$ 71F LBC CONVERSION FAILURE 
96 ; 
$8 ; CONVERT TIME TO ASCII FORMAT 
9 . 
3—E 10 AC E8 96 BLBS ACVTFLGCAP) ,40$ :1F LBS ONLY TIME IS TO BE CONVERTED 
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v04=000 CONVERT BINARY TIME TO ASCII STRING =SEP-1984 03:50:12 (CSYS.SRCISYSCVRTIM.MAR; 1 (1) 
12 52. E8 OO9A 275 BLBS 2,208 :1F LBS DELTA TIME SPECIFIED 
3 599 
9D £8 CONVERT DATE 
69 4 , 
52. 02 A4 3C 0090 1 MOVZWL MONTH(RG) .R :GET NUMERIC MONTH VALUE 
52 FF62 CF42 DE OAT g MOVAL NONTHTABRECR2I, R2 SGET “DRESS OF MONTH COUNTED STRING 
FF9G cr DF OOA7 PUSHAL Ww DATE ‘BUILD DESCRIPTOR FOR CONTROL STRING 
E DD OOAB i PUSHL #DELTA-DATE ; 
06 11 OOAD 5 30$ ; 
AE SBS 
OAF g : CONVERT DELTA TIME 
or 90 ° 
FFOA CF DF OOAF 291 20$:  PUSHAL W*DELTA ;BUILD CONTROL STRING DESCRIPTOR 
05 DD 083 36 PUSHL STIME-DELTA 
51 SE 00 008 93 30$ MOVL R “COPY ADDRESS OF CONTROL STRING DESCRIPTOR 
0BB 29% SFAO_S (RI), (R5),(R6) ,DAY(R4) ,R2, YEAR(R4) ; CONVERT DELTA TIME OR DATE 
3650 €9 O0CC 295 BLBC” R iff LBC CONVERT FAILUR 
66 «65 Ae OCF % SUBW Ss (5), (R6) ANY SP ACE LEFT IN TIME BUFFER? 
27 15 O0D2 «29 BLEQ 508 TIF LEQ NO 
04 a6 65 C0 00p4 38 ADDL  (R5),4(R6) [UPDATE TIME BUFFER ADDRESS 
OD 0; 
a 0 ; CONVERT TIME 
op 08 ‘ 
FF76 CF ODF be 04 40$:  PUSHAL wW*TIME ;BUILD CONTROL STRING DESCRIPTOR 
13 DD O0DC 305 PUSHL #EXESASCTIM-TIME ; 
51 SE 00 ODE 06 MOV SP,R1 SCOPY ADDRESS OF CONTROL STRING DESCRIPTOR 
OE 0 SFAO_S (R1),2(R5),(R6) ,HOUR(R4) MINUTE (R4) SECOND (R4) HUNDREDTH H(R4) ; 
AC OD Ore 08 50S MOVL”  ATIMLEN(APS ,R1 ;LENG H ADDRESS SPECIFIED 
oo } FF 309 BEQL 60$ : IF Hy N 
85 101 10 ADDW3 = (R5) +, (RS), (RI) :COMPUTE AND RETURN OUTPUT LENGTH 
04 0105 311 60$: RET ; 
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y04-000 CONVERT ASCII STRING TO BINARY TIME Seer T8Be Bhegi 7d POEMES Maceo yOKnOO «= Page 7, 
13 _ .SBTTL CONVERT ASCII STRING TO BINARY TIME 
13 : EXESBINTIM = CONVERT ASCII STRING TO BINARY TIME 
1 i 3 THIS SERVICE PROVIDES THE CAPABILITY TO CONVERT AN ASCII STRING TO A 
18 + 64-BIT ABSOLUTE OR DELTA TIME. 
p : INPUTS: 
1 4 : ; BTIMBUF (AP) = ADDRESS OF ASCII STRING DESCRIPTOR 
6 33 BTIMADR(AP) = ADDRESS TO STORE 64-BIT TIME VALUE. 
198 5 : OUTPUTS: 
1 g : RO LOW BIT CLEAR INDICATES FAILURE TO CONVERT TIME TO ASCII. 
61 6 § : RO = SS$_IVTIME = ASCII STRING HAS INVALID SYNTAX OR TIME 
0106 6 ; COMPONENT IS OUT OF RANGE. 
0196 j ; RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
0106 4: RO = SS$_NORMAL = NORMAL COMPLETION. 
bog 8a 
0106 7 EXESBINTIM:: SCONVERT ASCII STRING TO BINARY TIME 
O1FC 0106 a .WORD “M<R2,R3,R4,R5,R6,R7,R8> gENTRY MASK 
5E 10 ce 0108 9 SUBL WE<< £2>43>/4>%4, §P : ALLOCATE NUMERIC TIME BUFFER 
57 SE dO 0108 340 MOVL SP ‘SAVE ADDRESS OF NUMERIC TIME BUFFER 
55° 04 8C 7D 106 41 MOva Set IMBUF (AP) RS GET ADDRESS AND LENGTH OF ASCII STRING 
58 364 «(011 4g CLRL = RB [ASSUME DELTA TIM 
55 B7 0114 343 10$: DECW RS SANY MORE CHARACTERS? 
64 19 0116 344 BLSS 30% ; 
8 20 91 0118 345 CMPB BLANK. (R6) + :SKIP LEADING BLANK? 
fF? 13 «#0118 «346 BEQL 108 SIF EQL YES 
55 86 110 47 INCW oR [CORRECT NUMBER OF CHARACTERS 
76 55 2D 3A O11F 8348 LOCC #HYPHEN,R5S,-(R6) SABSOLUTE TIME FORMAT? 
57 13—=«O01 49 BEQL 30% SIF EQL NO 
58 «és 50 INCL RB ‘INDICATE ABSOLUTE TIME 
oN ? SNUMTIM_S (R7) [CONVERT CURRENT TIME TO NUMERIC FORMAT 
1 53; 
34 t CONVERT ABSOLUTE TIME 
1 s 
54 04 AT E 1 36 MOVAL DAY(R7),R4 :SET ADDRESS TO STORE DAY 
0081 3 1 D8 SBW «CONVERT SCONVERT DAY FIELD 
1 5 .BYTE HYPHEN TEXPECTED TERMINATOR 
5 13a 360 iStw = RS TANY MORE CHARACT $? 
0 13¢ 0 361 BNEQ SBRNCH IF THERE ARE MORE CHARACTERS. 
0008 1 . 6¢ BRW CVRTIME TIF NO MORE CHARACTERS, CONVERT TIME. 
86 2D 14 63 11$:  CMPB  #HYPHEN,(R6)+ 3MONTH FIELD VOID? 
F 144 364 BEQL “IF EQL YES 
FEBF CF 30 7% ; 146 63 MATCHC -(R6),#4*12,W°MONTHTAB ;SEARCH FOR MONTH SUBSTRING MATCH 
14D : BEQL ag sSKIP ERROR BRANCH If MATCH FOUND 
0092 31 O4F 6 BRW [IF NEQ NO MATCH 
52 39 5 cs 132 8 14$: SUBL3 Rg os12,R2 ‘CALCULATE CHARACTERS TO START OF SUBSTRING 
03 03 01 6 BITL #3.R2 [MULTIPLE OF 4? 
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S TO CONVERT TIME 16-SEP=1 
RING TO BINARY TIME -SEP=1 
aie 
16$ DIVW3 #4,R2,MONTH(R7) 
ADDL #3,R 
SUBW Ssa#'3,R 
BLSS vt ime 
BGTR 4 
BRW CVRTIME 
18$: CMPB = #HY PHEN, (R6) + 
BNEQ IVTIME 
20S: DECW R 
MOVAL YEAR(R7) RG 
RB 40$ 
t CONVERT DELTA TIME 
30$ MOVAL YEAR(R7),R4 
CLRL (RG) + 
CLRQ = (R4) 
CLRW  HUNDREDTH(R7) 
40$: BSBB CONVERT 
BYTE BLANK 
50$: DECW R 
BGEQ 
BRW CVRTIME 
53$ CMPB  =s @BLANK, (R6)+ 
BEQL 50S 
DECL 6 
INCL ~—s RS 
+ CONVERT TIME 
MOVAL HOUR(R7),R4 
BSBB_ CONVERT 
.BYTE COLON 
BSBB_ CONVERT 
.BYTE COLON 
BSBB. CONVERT 
.BYTE PERIOD 
MOVL #3, RB 
CLRW ss (RA) 
70$: ODECW R 
BLSS  80$ 
MOVZBL (R6)s 
CMPB wb ANK 
BEQL 
SUBL §_ #ONE, R1 
BLSS IVTIME 
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I STR 
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OUNT OF ey! pape CHARACTERS 
SS TO STORE YEAR 


T ADDRESS TO oe YEAR 
EAR YEAR AND MONT 
ql HOUR, MINUTE, AND SECOND 


2xorrrm 

< —s 
>> 
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E GO 
:NEXT aes BLANK? 


‘BACK TO NONBLANK CHARACTER 
PADJUST PREMAINING CHARACTER COUNT 


sSET 4 gt TO STORE HOUR 
R FIELD 


TEXPECTED TERMINATOR 


sConvert Hundredth Field 
ithis must be done differently because 
this is a reactions) vat ue. 
‘Establish max useable org! ts, 
:including the rounding digit. 
:Clear accumulated value. 
Any more characters? 
sBranch if no more characters. 
iGet the next characte 
A blank marks the ona ot the field. 
fj Bees if at end of the field. 
i Subtract out character bias. 
sBranch if invalid character. 
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: INVALID SYNTAX OR TIME COMPONENT 


IVTIME: poyeu. #SS$_IVTIME,RO 
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3 CHECK CONVERTED DATE AND TIME VALUES 
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SYS.SRCIJSYSCVRTIM.MAR; 1 


Result value within digit range? 
sprence if inval on necec ter. et 
:Branc usin 5 rec ‘ 
sBranch if ignoring thisedigit. : 
zElse sigit as the rounding digit. 
;Branch if rounding has no effect. 
:1f rounding up, do it. 

:Then loop, but for a regular digit, 
opp ad partial result by 10. 

z3An overflow means an invalid time. 
sAccumulate fracitonal value. 
sOverflow means invalid time. 

sLoop till end occurs. 


sInsure that truncated digits are 
sincluded as zeros in the final 
sfractional (hundredths) field value. 
NB: this will always overflow a word 
sif the fractional field has a 
resolution greater than thousandths. 


;SET INVALID TIME 


; SUBROUTINE TO CONVERT NUMERIC FIELD TO BINARY 


CONVERT FIELD 

sCLEAR ACCUMULATED VAL 

;POINT PAST NEXT FIELD 

sANY MORE CHARACTERS? 
F_LSS NO 


s1FL 
GET NEXT CHARACTER 
sEXPECTED TERMINATOR? 


c1F EQL YES 

;BLANK CHARACTER? 

; IGNORE BLANKS 

;SUBTRACT OUT CHARACTER BIAS 


UE 


ACCUMULATE VALUE 
:1F VS INVALID TIME VALUE 
sSTORE VALUE 


: INCREMENT PAST TERMINATOR 


SYSCVRTIM 
04-000 


04 A? = 270F BF 


C 

06 A711 
BA 
08 A7 C 
4 
aa & 
s 

55 O04 A 
03 38 

009 
A2 
50 67 
50 =F9BF CO 
3 
51 50 50 00000190 of 
52. 51 =51 = 00000064 af 


53. O16D 8F 

52. 53 52 00000585 8F 
51 0000 EAC 8F 

55 51 50 00025AB ‘ef 
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i 

0 4g 

1 
HS 

54 53 53 00000064 é 
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ICES TO CONVERT TIME 16-SEP AX/VMS v04-00 
STRING TO BINARY TIME g- SEF 38 83 26 3} YeyS SR SR (43 SCVR TIM. MAR; 1 
4 
5 CVRTIME: 

: CMPW 30s #9999, DAY(R7) {DAY WITHIN UPPER LIMIT? 
BLSSU  IVTIME TIF LSSU 

8 CMPW 39s #24, HOUR(R7) ‘HOUR WITHIN LIMITS? 
BLEQU  IVTIME SIF LEQU 

0 CMPW #60, MINUTE (R7) {MINUTE CUT THIN LIMITS? 

91 BLEQU IVTIME SIF LEQU 

36 CMPW #60, SECOND (R7) i SECOND WITHIN LIMITS? 

9 BLEQU IVT IME TIF LEQU 

94 MOVZWL DAY(R?),R5 [GET DAY ALUE 

95 LBS RB 5$ ;1F LBS ABSOLUTE TIME 

36 BRW 40$ : 

38 

69 : CONVERT YEARS TO QUADRICENTURIES, CENTURIES, QUADYEARS, YEARS 
1 ° 

0¢ 5$: EQL  IVTIME s1F EQL INVALID TIME 

0 MOVZ2WL YEAR(R7),RO :GET YEAR VALUE 

04 MOVAW =1601(ROS,RO ‘CALCULATE YEARS PAST 1601 

05 BLSS _sIVTIM SIF LSS INVA LID TIM 

06 CLRL sR 'CLEAR BART OF DIVIDEND 

07 EDIV  #400,R0,RO,R1 :CALCULATE QUADRICENTURIES 

08 CLRL sR [CLEAR HIGH PART OF DIVIDEND 

09 EDIV. #100,R1,R1,R2 CALCULATE CENTUR 

10 CLRL = RB ZCLEAR HIGH PART OF DIVIDEND 

i EDIV #4,R2,R2,R3 SCALCULATE QUADYEARS AND YEARS 

13 ; 

14 : CONVERT QUADRICENTURIES, CENTURIES, QUADYEARS, YEARS TO DAYS 

1 . 

19 MULW 3 #365,R3 :CALCULATE NUMBER OF DAYS PAST LEAP YEAR 

18 EMUL HQUADYEARDAYS R2,R3,R2 :CALCULAT NUMBER OF QUADYEAR DAY AND SUM 

19 MULL §#CENTUR ALCULATE NUMBER OF CEN 
0 EMUL PAUADRIDAYS: RO,R1,R5  : CALCULATE NUMBER OF GUADRIDAYS. AND SUM 
1 CLRL = RO [CLEAR INITIAL LOOP INDEX 
é MOVZWL MONTH(R7),R6 [GET SPECIFIE TH VALUE 

10$: ADDL R5 SACCUMULATE TOTAL DAYS 

4 MOVZBL W*DATETABLECROJ,R2 GET ER OF DAYS IN MONTH 
5 CMPL 1 SSECOND MONTH OF YEAR? 

6 BNEQ 30 [IF NEQ NO 

MOVZWL YEAR(R7),R3 :GET SPECIFIED YEAR VALUE 
8 BITL  #3,R3 SYEAR MULTIPLE OF 4? 
9 BNEG 208 [IF NEQ NO 
0 CLRL RG [CLEAR HIGH PART OF DIVIDEND 
1 EDIV #100,R3,R3,R4 :CALCULATE CENTURY AND YEAR IN CENTURY 
g TSTL = RG SYEAR MULTIPLE OF 100? 
BNEG 30% TIF NEQ NO 
rs BITL #3,R3 SYEAR MULTIPLE OF 400? 
5 BeQL ©: 308 TIF EQL YES 
6 308: DECL sR SREDUCE NUMBER OF DAYS IN MONTH 
$:  AOBLSS R6,R0,10$ SANY MORE DAYS TO ACCUMULATE? 
8 MOVZWL  #S$$ {yT ine .Ro SASSUME INVALID DAY OF MONTH 
V2WL DAY(R7),R1 [GET SPECIFIED DAY 
40 SUBL #TIMOFF2,RS [SUBTRACT OUT NUMBER OF DAYS TO 17-NOV-1858 


sss sss — 


SYSCVRTIM = SYSTEM SERVICES TO CONVERT TIME 16-SEP-1984 01:54:5 X/VMS Macro V04-00 P 11 
vOu-000 CONVERT Agel STRING TO BINARY TIME g7 3 e-138 §3:25:7) ie SYS.SRCJSYSCVRTIM.MAR; 1 age) 
55 C 4 ADDL 1, RS ZCALCULATE TOTAL NUMBER OF DAYS 
: 8 D i BLSs 608 ‘IF LSS INVALID TIME 
52. 51 ~1 =OeD 4 CMPL = R1,R2 ‘DAY WITHIN LIMITS? 
2 1A 002d 44 BGTRU 60§ SIF GTRU NO 
by ee 
a4 i : CONVERT TIME TO TENTHS OF MICROSECONDS 
D7 549 * 
50 06 A7 3C 0207 550 40$:  MOVZWL HOUR(R7),RO 3GET HOUR VALUE 
08 A? «3C «(OepB. C551 MOVZWL MINUTECR?) -R R1 [GET MINUTE VALUE 
50 51 50 3¢ A OoDdF 3 EMUL eR ; CONVER wv HOURS" TO MINUTES AND SUM 
OA A C 0264 55 MOVZWL $ COND j gk! 'GET SECON 
50 51 SO 3C 7A O2E8 554 EMUL RO [CONVERT MINUTES ro SECONDS AND SUM 
50 51 50 odo000e4 ar 3 Fe 33 crue RUNSRES THR a :GET HUNDREDTH VALU TO HUNDREDTHS AND SUM 
50 00 50 000186A0 BF 7A 0 FA H EMUL #1006007 RO RO; “RO” RO [CONVERT TO TENTHS OF MICROSECONDS 
03 59 ; 
H 560 : CONVERT DAYS TO TENTHS OF MICROSECONDS 
$303 8e3 ° 
52 00 55 324A9A70 BF 7A 0303 368 EMUL § #843750000,R5,#0,R2 :MULTIPLY BY 864000000000/1024 
52. 52 OA 79 O30C 564 ASHQ #10,R2,R2 [MULTIPLY BY 1024 
0310 565 
0310 566; 
0310 567 : COMBINE RESULTS AND STORE 64-BIT TIME 
0310 568: 
9310 569 
52 50 CO 19 570 RTS 
53) 51) 8 «(0313S s«$71 ADWC = R1.R TADD HIGH ORDER PARTS 
50 (01s 3 0316 228 MOVZWL #S$$_NORMAL,RO [SET NORMAL COMPLETION 
09 38 E8 0319 57 BLBS  R8,50$ [IF LBS ABSOLUTE TIME 
53 53)—COCE: 0 1¢ «(5574 MNEGL R3, SCONVERT TO DELTA TIME 
3g 52 CE «OO81F 575 MNEGL R2,R 3 
53 00) «Dd sO 32 76 SBWC. 2 s«#0R 
08 8C 52 7D 032 577 50$: MOV  R2.aBTIMADR(AP) ISTORE 64-BIT TIME VALUE 
04 0329 578 60$: RET : 


ADDL RO,R sADD LOW ORDER PA 


F 
O CONVERT TIM 


6 
50." Fine TO NUMERIC TIME "Bree ibs Os:8bi12 Lensveacieyseunsimcmar:1 — Pase 


SYSC 
V04= 


= SYST V 
CONVERT BINAR 


I 
Y 
A : .SBTTL CONVERT BINARY TIME TO NUMERIC TIME 
A : EXESNUMTIM = CONVERT BINARY TIME TO NUMERIC TIME 
A 4 : THIS SERVICE PROVIDES THE CAPABILITY TO CONVERT AN ABSOLUTE OR DELTA TIME 
A 5 : FROM 64-BIT FORMAT TO INTEGER DATE AND TIME VALUES. 
A $ : INPUTS: 
A 5 ; NTIMBUF (AP) = ADDRESS OF 7-WORD BUFFER TO RECEIVE CONVERTED DATE AND 
A 591: NTIMADR(AP) = ADDRESS OF 64-BIT TIME VALUE. IF ZERO, THEN THE AfURRENT 
A 3¢ : SYSTEM TIME IS USED. POSITIVE VALUES ARE INTERPRET 
A 93 ; ABSOLUTE TIMES AND NEGATIVE VALUES AS DELTA OOMeS 
A 95 : OUTPUTS: 
A 2 : RO LOW BIT CLEAR INDICATES FAILURE TO CONVERT TO NUMERIC TIME. 
A 38 : RO = SS$_ACCVIO = 64-BIT TIME VALUE CANNOT BE READ BY CALLING 
A 690 : RCCESS MODE OR TIME BUFFER CANNOT BE WRITTEN BY 
A 601 ; CALLING ACCESS MODE. 
A $08 : RO = SS$_IVTIME = SPECIFIED DELTA TIME IS GREATER THAN 9999 
A 606 : RO LOW BIT SET INDICATES SUCCESSFUL COMPLETION. 
A 608 ; RO = SS$_NORMAL = NORMAL COMPLETION. 
A 610° 
A611 EXESNUMTIM: : sCONVERT TO NUMERIC TIME 
OOFC A 61g ~WORD “M<R2,R3,R4,R5,R6,R7> SENTRY MASK 
57 04 AC dO C 61 MOVL — NTIMBUF (AP) -R?~ GET ADDRESS OF 7=WORD TIME BUFFER 
0 614 IFNOWRT #7#2,(R7),10$ [CAN TIME BUFFER BE WRITTEN? 
50 01 3¢ 6 615 MOVZWL #SS$.NORMAL,RO SASSUME NORMAL COR SET ION 
51 Q0000000°EF 7D 9 616 5$: MOVG  EXESGQ_SYSTIME.R1 TASSUME TIME NOT SPECIFIED 
51 Q0000000'EF 01 40 61 CMPL XESGQ~SYSTIME.R1 [VERIFY THAT THE VALUE ACQUIRED 
FO. 1 4 618 BNEQ : WAS NOT BEING MODIFIED DURING 
52. O0000004"EF 0D 49 61 CMPL XESGQ_SYSTIME+4 ,R2 : THE ACQUISITION. THIS SYNCHS ACCESS BY 
A 620 BNEQ + THE SECONDARY IN THE 11/782 SYSTEM. 
53 08 AC 09 621 MOVL NTIMADR(AP),R3 [GET ADDRESS OF 64-TIME VALUE 
a 6 : BEQL TIF EQL NONE SPECIFIED 
3 6 1FNORD (R3), 108 [CAN 64-B1T TIME VALUE BE READ? 
51 63 7 4 mova RS) [GET 64-BIT TIME VALUE 
5 eR éi 625 GEQ [IF GEQ ABSOLUTE TIME 
Q 33 CE 036 6 6 MNEGL ot "2 SNEGATE DELTA TIME VALUE 
ce 66 MNEGL RI1.R ; 
i) 3 SBwC #0, 3 
04 4 pesca SINDICATE DELTA TIME VALUE 
50 0c se ro 0 10$ MOV ZL Att reehi0. RO [SET ACCESS VIOLATION 
Ro 3 
7% 4 =: R1 AND R2 CONTAIN 64-BIT ABSOLUTE TIME VAL ue IN UNITS OF TENTHS OF MICRO- 
74 5: SECOND ALCULATE DAYS PAST BASE TIME AND FRACTION OF DAY BY DIVIDING 
74 6; BY 4286000 WHICH IS THE NUMBER OF TENTHS OF MICROSECONDS IN A DAY. 


SYSCVRTIM = SYSTEM SERVICES TO CONVERT TI SEP- 4: AX/VMS Ma v04-00 Pp 1 
5025000 CONVERT BIMANY TINE TO WNERIC TIME Mer SeerTERe Bk esig) PANCMES Secce yosnog «= Page 13, 
4 7 ; THE DIVISION IS PERFORMED IN THREE STEPS TO INSURE BOTH QUOTIENT AND $$ 
re : ; REMAINDER STAY WITHIN BITS. _ ee 
74 640 : CALCULATE DAYS BY DIVIDING BY 1024 AND THEN 843750000. QUOTIENT IS DAY cc 
74 41 ; AND REMAINDER IS FRACTION N OF DAY mina en taney cc 
hee: 
54 CO*SS 0 F 74 44 208: EXTZV #0, #10, a R4 SAVE REMAINDER FR xT cc 
51 3} F6 er 9 79 45 ASHQ 19,8 :DIV io , yoiags ent paes CH 
52 51 51 3246A9A70 BF 7B 4 646 EDIV +84 sBhaht R1,R1,R2 SCALCULATE DAYS AND FRACTION OF DAY os 
7 48 ; DE 
7 g8 ; R1 CONTAINS DAYS PAST BASE TIME, R2 PLUS R4 CONTAIN FRACTION OF DAY. EX 
7? 929 : Re CONTAINS PART OF FRACTION IN UNITS OF 864000000000/1024 AND EX 
f 21 ; R4 CONTAINS REMAINDER IN UNITS oF” TENTHS OF MICROSECONDS. ic 
7 638 : CALCULATE FRACTION OF DAY IN HUNDREDTHS OF SECONDS BY DIVIDING BY 10 
7 24 ; 100000 WHICH IS THE NUMBER OF TENTHS OF MICROSECONDS IN A HUNDRETH 10 
7 655 ; OF A SECOND. 10 
F838: Ip 
7 658 CLAL R3 CLEAR HIGH PART OF DIVIDEND IP 
9 659 ASHQ #10, R2,R2 :CONVERT BACK TO TENTHS OF MICROSECONDS PR 
D 660 BISL Re zADD REMAINDER BACK PR 
90 961 EDIV #166 00,R2,R5,R2 ;CALCULATE FRACTION OF DAY IN HUNDREDTHS Hf 
663 ; sc 
664 ; R1 CONTAINS DAYS PAST THE BASE TIME AND RS CONTAINS THE FRACTION OF DAY 


665 : IN HUNDREDTHS OF A SECOND 


T 
R 
53 & 
52 28 A 9 
5 4 8 
52. 55 52 000186A0 8F 


66 
66 
7E 50 00 €3 89 BBCS #0,R0,70$ :IF CLR, DELTA TIME SPECIFIED 
670 ; 
erg ; ADD TIME OFFSET SO THAT DAY IS RELATIVE TO 1-JAN-1501. 
673° 
51 OOO1FE98 BF CO 67% ADDL #TIMOFF1,R1 yADD TIME OFFSET 
676 ; 
i ; CALCULATE NUMBER OF QUADRICENTURIES THAT HAVE PAST SINCE 1501. 
679 ° 
2 D4 CLRL R2 CLEAR HIGH PART OF DIVIDEND 
52 51 51 00023aB1 Fy BB EDIV #QUADRIDAYS,R1,R1,R2 CALCULATE NUMBER OF QUADRICENTURIES 
4 R1 CONTAINS THE NUMBER OF QUADRICENTURIES AND fe CONTAINS THE NUMBER OF 
5 ; DAYS INTO THE NEXT QUADRICENTURY. CALCULATE T E NUMBER OF CENTURIES BY 
§ + CONVERTING TO QUARTER DAYS INTO NEXT GUADRICENTURY AND THEN DIVIDING BY 
s : THE AVERAGE NUMBER OF QUARTER DAYS IN A CENTURY. 
52 C4 9 MULL #4,R2 ;CALCULATE NUMBER OF QUARTER DAYS 
3 bs 9 CLRL = «RB SCLEAR HIGH PART OF DIVIDEND 
53 52 52 00023aB1 8F 69¢ EDIV #QDAYSPCENT,R2,R2.R3 [CALCULATE NUMBER OF CENTURIES 


H 6 
voe-000 CONVERT BINARY. ine PMURERIC Time "SuSEP=19Be 04:50:12 ESvStsRcTSvsevarincnan:1 = "8" Uf, 


: R2 CONTAINS THE ners OF CENTURIES AND R3 CONTAINS THE NUMBER OF QUARTER 
DAYS INTO THE NEXT CENTURY. 


CALCULATE YEARS BY DISCARDING ANY FRACTION OF A DAY, ADDING 3/4°THS OF A 
AND DIVIDING BY THE AVERAGE NUMBER OF DAYS IN A YEAR. THE LEAP DAY 
OF PEACH FOUR YEAR CYCLE IS FORCED INTO THE FOURTH YEAR. 


53 03 OCB Bist #3,R3 TRUNCATE FR ACTION. AND ADB" 3/4"THS OF DAY 
54 53 53 00000585 F ss EDIV #QDAYSPYEAR,R3,R3,R4 ;CALCUL NUMBER OF YEARS 
4 4 C6 DIVL #4 ,R4 Seateuta At NUMBER OF DAYS MINUS ONE 
4 06 INCL [CONVERT TO ACTUAL JULIAN DAY OF YEAR 


DOOCGDCOCOCOCOCoC oO 


[NAR 
tbe 
g 5 
508 
108 
710 : R1 CONTAINS NUMBER OF QUADRI CENTURIES 
711: Re CONTAINS NUMBER OF CENTURIES. 
ar + R3 CONTAINS NUMBE VEARS. 
i? : R& CONTAINS JULIAN DAY OF YEAR. 
af 3; CALCULATE ACTUAL YEAR. 
i 
51 6241 ~—sObE 18 MOVAL (R2)CR1I.R1 ;COMBINE CENTURIES ohh QUADRICENTURIES 
51 32 cs 71 MULL #50,R1 ; CALCULATE NUMBER OF DOUBLE CENTURIES 
51 050d €341 720 MOVAW 1501(R3)CR1],R1 : CALCULATE gC TUAL OEA R 
| a? , MOVW = R1, (R7)+ [STORE YEAR 
723 ; 
g 4 : TEST FOR NONLEAP YEAR AND BIAS DAY IF AFTER 28-FEB. 
7 . 
51 03 03 7 $ BITL #3,R1 : YEAR MULTIPLE OF 4? 
14 12 7 8 BNEQ 308 :1F NEQ NO 
52. 4 7 CLRL = R2 [CLEAR HIGH PART OF DIVIDEND 
52. 51 51 00000064 &F 730 EDIV #100,R1,R1,R2 : CALCULATE CENTURY AND YEAR IN CENTURY 
52. 731 TSTL oR :YEAR MULTIPLE OF 100? 
Oc 1 7 : BNEQ 408 :IF NEQ NO 
51 D 7 BITL #3,R1 [YEAR MULTIPLE OF 400? 
yf 734 BEQL 4o§ Z1F E S 
54 D1 735 30$ CMPL «#31428, R4 SAFTER 28-FEB? 
18 7 6 BGEQ z1F GE 
4 06 f INCL = RG SADJUST FOR TABLE BIAS 
51 1 p 4 : 40s MOVL = #1, R1 IN NITIALIZE MONTH 
52 FBF7 CF41 9A 739 50$ MOVZBL W*OATETABLE-1(R1],R2  :GET NUMBER OF DAYS IN MONTH 
54 52 ¢ 740 SUBL  R2,R4 SSUBTRACT FROM JULIAN DAY 
4 ee BLEQ 6 SIF LEQ CORRECT MONTH FOUND 
F1 51 C FS 04 14g AOBLEQ #12.R1,50$ SLOOP THROUGH ALL MONTHS 
, ae 1 o 60$:  MOVW R1,(R7S+ [STORE MONTH 
87 54 52 al 041 44 ADDW3 Re R4, (R7)+ :STORE DAY 
| ee 19 745 BRB 80$ ; 
t1B Pe? 
1B 248 DELTA TIME SPECIFIED - STORE RELATIVE DAY 
418 749: 
418 750 


I 
SYSCVRTIM ~ SYSTEM SERVICES TO CONVERT TIM SEP=1 AX/VMS Macro V04-00 Page 15 
yOe=000 CONVERT BINARY Fine TO NUMERIC Time "erseF 1382 te 36; 3} Heys. SRCJSYSCVRTIM.MAR; 1 ve WD 
7 06 B 70$:  CLRL (R7)+ i CLEAR YEAR AND MONTH 
87 1 8B MOV)  R1,(R7)4 SSTORE DAY 
51 00002710 i ; CHL #16000,R1 :RELA IVE DAY WITHIN LIMITS? 
50 0184 BF 3C¢ 9 5 MOVZWL #SS$_IVTIME,RO 'SET INVALID TIME 
4 eS : RET : 

ff 
F t § : RS CONTAINS FRACTION OF DAY IN HUNDREDTHS OF SECONDS. 
i i ; CALCULATE HOUR, MINUTE, SECOND, AND HUNDREDTH OF SECOND. 
F 763° 

57 08 co F 764 80$: ADDL 4#8,R7 ;POINT TWO BYTES PAST END OF BUFFER 

1 D4 2 «765 CLRL oR SCLEAR LOOP INDEX 
S52. FCO3 CF41 9A 4 766 90$:  MOVZBL W*TIMETABLECR1),R2 [GET NEXT UNIT DIVISOR 
36 4 A 7% CLRL [CLEAR HIGH PART OF DIVIDEND 
56 55 «55)0—C52StéséS7iB C 768 EDIV R »RS,R5,R6 [CALCULATE NEXT PAR 
77 +56 «OB 1 i: MOVW *=(R7)- :STORE NEXT PART 
EC 51 2¢ F 4 770 AOBLEQ ‘ RI os ;LOOP FOR NUNDREDTHS, SECONDS, AND MINUTES 
77 +55 80 8 771 MOVW (R7) :STORE HOUR 
04 8 108 RET ; 

€ 77% END 


J 6 
SYSCVRTIM = SYSTEM SERVICES TO CONVERT T =SEP-1984 > 
SENT te $8 10 Coen TIME IS SEE USES GUEST) BEUUTENNE AP tans | Hts 


T2 = 9 
ACVTFLG = 0 
ATIMADR = 
TIMBUF = 
ATIMLEN . 
ANK = g 
BTIMADR = 
TIMBUF = 4 
CENTURYDAYS = AC 
ON = 3A 
CONVERT AR 
CVRTIME CR 
DATE FR 
DATETABLE OR 
DAY = 4 
DEL rt: R 
EXESASCTIM 8 RG 
EXESBINTIM 000106 RG 
EXESGQ_SYSTIME eeeeeere §=6X 
EXE TIM OOOOS2A RG =O 
R = 00000006 
HUNDREDTH = : C 
YPHEN = 0002D 
VTIME OOO1ES R 02 
MINUTE = Bh § 
TH = S 
MONTHTAB QO000C R 02 
NINE = 00000039 
NTIMADR = B88 8 
NT IMBUF = 00000004 
= 00000050 
R100 = 2e 
QDAYSPCENT 5 ABI 
QDAYSPYEAR = 428? 
QUADRIDAYS = ABI 
QUADYEARDAYS = 585 
SE = A 
SS$_ACCVIO = C 
SSS_IVTIME = 4 
SS$_NORMAL = 1 
SYSSFAO teeters 
SYSSNUMTIM satis ox 
TIME 
TIMETABLE 09000 cr 
TIMOFF 1 = a8 
TIMOFF2 = a 33 
YEAR = 06000 
tee ee ew eee eee eee & 
; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 


a090 | Ct) -) NOPIC USR CON ABS LCL NO hs NOEXE NORD wet NOVEC BYTE 
o:) NOPIC USR CON ABS LCL NOSHR EXE RD T NOVEC BYTE 
1100.) NOPIC USR CON REL LCL NOSHR EXE RD Unt NOVEC BYTE 


sasss. 
YSEXEPAGED 


K 
GWE Fon tan sonctctng 7570 SrRS 99 Gone Tom <= ceemtaes OSES 


i ons 


! Performance indicators ! 


i 


CPU Time 
00 


00:00:58 66:00:04.3 
£90:00.6 80:02:8 
: 88:8 
0:00:09: 0:00:34; 


:00 
: : 
hey york ing set Limit wes 1500 pages. 
34724 bytes_(68 pages) of virtual memory were used to but fer he eo §g¢r 
There were 30 pages of symbol table space allocated to hold 451 non-local and 39 local symbols. 
774 source lines were read in Pass 1, producing 15 object records in Pass 2. 
14 pages of virtual memory were used to define 12 macros. 


Phase 


Initialization 
ss processing 


Syabol table sort 


Symbol table output 
Psect synopsis output 
Cross-reference output 
Assembler run totals 


Page faults 


Elapsed Time 


8 
14 
525 


$e wow e emer neo ae eeeeeceocoee— +} 


! ; Macro Library statistics ; 


Macro Library name 


“$522 SUA: Ba -OBJJLIB.MLB;1 § 
$255SDUA SYSLIBISTARLET. MLB; 2 
TOTALS (all Libraries) 9 


505 GETS were required to define 9 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:SYSCVRTIM/OBJ=OBJ$:SYSCVRTIM MSRC$:SYSCVRTIM/UPDATE=(ENHS$:SYSCVRTIM) +EXECML$/LIB 


AX/VMS v04-00 
SYS.SR 5g SCVR TIM.MAR; 1 
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VAX/VMS_V4.0 N 


DIGIT 
CONFI 


1383 


A 
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